home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.shuffle'in < prev    next >
Text File  |  2009-01-03  |  298b  |  12 lines
  1. 0370 PROC SHUFFLE'IN 
  2. 0380   FOR START:=2 TO 11 DO
  3. 0390     NAME$(0):=NAME$(START)
  4. 0400     TEST:=START-1
  5. 0410     WHILE NAME$(TEST)>NAME$(0) DO
  6. 0420       NAME$(TEST+1):=NAME$(TEST)
  7. 0430       TEST:-1
  8. 0440     ENDWHILE 
  9. 0450     NAME$(TEST+1):=NAME$(0)
  10. 0460   ENDFOR START
  11. 0470 ENDPROC SHUFFLE'IN
  12.